﻿Public Class CTDistribucionGL

Private _PartidaEJ              As Long
Private _SecDistrib             As Long
Private _FolioOrden             As String
Private _FecRegistro            As Date

Private _LstFondoXCantidad      As List(Of structDistribGLReg)
Private _MontoTotal             As Decimal 

Private _EnviadoADecalog        As Boolean 

Private  _EstatusRecupFolDec As enumEstatusFolioRecupDecalog 
Private  _NombreArchivo      As String 
Private  _Observacion        As String 



Public Enum enumEstatusFolioRecupDecalog

 NO_RECUPERADO = 1
 CON_ERROR     = 2
 RECUPERADO    = 3

End Enum


Public Sub new()
   _LstFondoXCantidad = New List(Of structDistribGLReg)
End Sub


public Structure structDistribGLReg
   public  _Fondo                  As String 
   Public  _CantidadSol            As Decimal
End Structure

Public Property PartidaEJ() As Long
    Get
        Return _PartidaEJ 
    End Get
    Set(ByVal value As Long)
        _PartidaEJ  = value
    End Set
End Property

Public Property SecDistrib() As Long
    Get
        Return _SecDistrib 
    End Get
    Set(ByVal value As Long)
        _SecDistrib = value
    End Set
End Property

Public Property FolioOrden() As String
    Get
        Return _FolioOrden 
    End Get
    Set(ByVal value As String)
        _FolioOrden = value
    End Set
End Property

Public Property FecRegistro() As Date
    Get
        Return _FecRegistro 
    End Get
    Set(ByVal value As date)
        _FecRegistro = value
    End Set
End Property

Public Property LstFondoXCantidad() As List(Of structDistribGLReg)
    Get
        Return _LstFondoXCantidad 
    End Get
    Set(ByVal value As List(Of structDistribGLReg))
        _LstFondoXCantidad = value
    End Set
End Property

Public Property MontoTotal() As decimal
    Get
        Return _MontoTotal 
    End Get
    Set(ByVal value As decimal)
        _MontoTotal = value
    End Set
End Property


Public Property EnviadoADecalog() As Boolean 
    Get
        Return _EnviadoADecalog 
    End Get
    Set(ByVal value As Boolean)
        _EnviadoADecalog = value
    End Set
End Property



Public Property EstatusRecupFolDec() As enumEstatusFolioRecupDecalog 
    Get
        Return _EstatusRecupFolDec 
    End Get
    Set(ByVal value As enumEstatusFolioRecupDecalog)
        _EstatusRecupFolDec = value
    End Set
End Property

Public Property NombreArchivo() As String
    Get
        Return _NombreArchivo 
    End Get
    Set(ByVal value As String)
        _NombreArchivo = value
    End Set
End Property

Public Property Observacion() As String
    Get
        Return _Observacion 
    End Get
    Set(ByVal value As String)
        _Observacion = value
    End Set
End Property





Public Overrides Function ToString() As String
    Return _PartidaEJ.ToString()
End Function



End Class

